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X-11 ss-32 V res Page 1 
DISK$V nen STER: ED OsRe WFREACUR.BLI;1 (1) 


EDTSWFREACUR = read current Line 18-5 et 7 4 96: \Q: $8 ys 


FREACUR = read current Line’ 
REACUR ( ' Read current Line 
1H = 'v04-000' ! File: WFREACUR.BLI Edit: JBS1004 
= 
BEGIN 


See RARER AAA AAE RARE AAAAAAA AREER AAA A AERA AAAEAAAAAAARARAHRERAAEREEEE 


4 gf ho 

; 4 

; 5 5 

a iz 

: 1 

; 8 : 1! . 
; 9 009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
ae 19 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
; 1} i : * ALL RIGHTS RESERVED. * 
H ‘® ® 
3 18 ig 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE ysee AND gh * 
; 14 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ee 15 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 1 Bate 1 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ci s:% 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 8 S218 : :* TRANSFERRED. * 
; ‘® * 
: 0 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: ¢ 80 ; : 7” CORPORATION. * 
3 is a 
; 4 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; ? 8 5 : * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 ‘® ® 
3 7 00 z 1 !e * 
3 & 0099 1 Leake e eee eee RRA RA AERA AA AAAAAAAE AAA AA RARER AAA AAA A AERA AAAAAATAAAERAAAERERKAREEE 
; 9 0029 1! 

; 0 0050 1 

; 1 0031 1 !++ 

3 ¢ O83 ' FACILITY: EDT == The DEC Standard Editor 

; 34 0034 1 ! ABSTRACT: 

; 5 it 1! 

3 6 0036 1! Read current Line. 

3 7 0037 1! 

3 : sit ! ENVIRONMENT: Runs at any access mode - AST reentrant 

; 29 st : : AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 

: $5 0042 1 ! MODIFIED BY: 

s; § 0043 1! 

| (44 044 1 ! 1-001 = Original. DJS 23-Feb-1981. This module was created by 

s 65 045 . ! extrecting routine EDT$$RD_CURLN from module EDTWF. 

3; (46 0046 1! 1-002 - Regular! zed headers. JBS 25-Feb-1981 

; «47 0047 1 ! 1-003 - regularize headers. JBS 19-Mar-1981 

: rt} Bes : 1-004 - Remove EDTSSSET_WKLN. JBS 14-Sep-1982 

: 50 050 1 
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EDTSWFREACUR EDTSWFREACUR = read current Line 16-Sep-1984 VAX=11 2 
042000 : Racer ee 1g se eg PE aMOMASTERSCEDT SRCTWFREACUR-BLIG; (25 


Declarations 
XSBTTL Declarations’ 
TABLE OF CONTENTS: 


X- 
SK 


Pwr 


REQUIRE ‘EDTSRC:TRAROUNAM'; 


FORWARD ROUTINE 
EDTSSRD_CURLN : NOVALUE; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 


SBAVLSSBVS AON 


a a a ss ss ns st ss 4 st ts 
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3 dee} MACROS: 
71 i NONE 
ie 064 i 
3 0666 i EQUATED SYMBOLS: 
75 4 i NONE 
3 beee 1 i 
44 0668 i OWN STORAGE: 
79 0650 i NONE 
0 0651 i 
Hi 0652 i EXTERNAL REFERENCES: 
Bg 0654 i In the routine 


N11 
EDT SUFREACUR EDTSWFREACUR = read current Ling 19-3019 4 95:10:43 VAX-11 Bliss-32 Or cars Page 3 
v04-000 EDTSSRD_CURLN = read current Line 14-Sep-1984 12:25: 3 DISKSVMSMASTER:CEDT.SRCJWFREACUR.BLI;1 (3) 
3 5 5 } ZSBTTL "EDTSSRD_CURLN = read current Line’ ; 
; 8 Fy GLOBAL ROUTINE EDTSSRD_CURLN ! Read current Line : 
; 8 6 8 1 : NOVALUE = ‘ 
; 9 1 ; 
; re 1 !+¢ ‘ 
| 7 61 1 ! FUNCTIONAL DESCRIPTION: ‘ 
3 3 666 1! : 
:- = o> 1 i Insure that the current Line in the current buffer is accessable in ‘ 
; 94 66 1! memory. Read the current bucket and update the EDTSSA_WK_LN pointer to the ‘ 
> 665 : } current Line in the bucket. ‘ 
: 38 $67 1 | FORMAL PARAMETERS: : 
; «98 re} 1! : 
: 180 be76 | | Hs : 
; 101 O67) 1 { IMPLICIT INPUTS: ; 
: 108 O678 1 | EDTS$A_CUR_BUF ; 
> 104 7% 13 EDT$$A_WK_BUK ; 
; 13? p6r? ! } EDT$$G_WK_ CURBUK : 
3 107 O67? ! IMPLICIT OUTPUTS: : 
; 109 0679 1 | EDTSSA_WK_LN ; 
: 110 0680 1 | ; 
: 111 0681 1 | ROUTINE VALUE: : 
; ig ore 1? ; 
al ae te Tee : 
> 115 0685 1 | SIDE EFFECTS: ; 
5 136 bees 1; : 
: 117 0687 1 | NONE ; 
ae: be89 | | 
131 oe 2 | BEGIN 
; 1 69 ; 
; i oes EXTERNAL ROUTINE : 
; 126 694 EDTSSWF_MAKECUR : NOVALUE, ‘ 
3 ' ? Be32 EDTSSRD_NXTLN; : 
> 127 0697 EXTERNAL ; 
; 128 0898 EDTSSA_CUR_BUF : REF TBCB_BLOCK, ' Current text buffer control block 3 
: 129 EDTSSA_WK _BUK : ! Pointer to current bucket 
3; 130 700 REF BCOCK CWF_BUKT_SIZE, BYTE) FIELD (WFB FIELDS) 
3 13) 701 EDT$$G_WK_CURBUK ' Number of the current bucket 
: 13 7 : EDTSSA-WK"LN : REF LIN_BLOCK; i Pointer to the work Line 
4 ge 
; 5 ? 5 | Get the current bucket. 
a ? 
3 138 78 IF (.EDT$S$G_WK_CURBUK NEQ .EDTSSA_CUR_BUF CTBCB_CUR_BUKT)) 
: 140 o7i0 EDTSSWF_MAKECUR (.EDTS$A_CUR_BUF CTBCB_CUR_BUKT)); 


REACUR = read current Line 1B-Bepn1986 2:10:48 vaetT aLisee32 y 


35 
: 
~ if 


16 
; Ane update Line point to point to the current Line. 


cu ge ED TSSRDLNATLN (0 
EDTSSA_WK_LN = CHSPTR (.EDTSSA_WK_BUK, .EDTS$A_CUR_BUF CTBCB_LINE_ADDR)); 


END; ! of routine EDTSSRD_CURLN 
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! if (.EDTSSA_CUR_BUF CTBCB_LINE_ADDR] EQL .EDTSSA_WK_BUK CWFB_ENDJ) 


-TITLE EDTS wengacun EDTSWFREACUR = read current Line 
-IDENT \Vv04 
EDTSSWF_MAKECUR 
-EXTRN EDTSSRO— apis EDTSS$A_CUR_BUF 
EDTS$SA » EDTS$$G_WK_CURBUK 
sEXTRN EDTSSA_WK_L 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


-ENTRY EDTSSRD_CURLN, Save R2,R3,R4 
MOVAB EDT$$A_CUR_BUF, Rs 
MOVL EDTS$A_CUR ae 

#0, #18, 4TRO), EDTS$G. WK _CURBUK 
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28 000000006 00 
000000006 00 04 A0 1 0 


04 =A RO) 


SP) 
000000006 rafTaSer BflAKE CUR 
TSSA_WK aun 
3), &R2) 
CALLS #0, EDTSSRD_NXTLN 


28: ADDL3 (R3), R2, EDTS$A_WK_LN 
4 0004 RET 


; Routine Size: 68 bytes, Routine Base: _EDTSCODE + 0000 
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EDTSwFREACUR SUFREACUR = read current Li 
f04-000 EO TEER 5” line 


SE 


12 
D.CURLN = read current | 1§-Se0-1984 95i3e ss UISKSUMGMASTERSCEDT SRCTUFREACUR.BLIG™” «a3 
i 1 END ! of modi-le EDTSWFREACUR 
$ O ELupon 


PSECT SUMMARY 
Name Bytes Attributes 
-EDTSCODE 68 NOVEC,NOWRT. RD, EXE, SHR, LCL, REL, (CON, PIC,ALIGN(2) 


Library Statistics 


socece - Symbols ---<----- Pages Processing 
File Total Loaded Percent Mapped Time 
“Se33SpuASe: Lepr. smcapsects i $2;1 7% f 50 ‘9 00:00:14 


COMMAND QUALIFIERS 
Sore y rrr Sen ES TEM, SEPT ENS ES I/RTRACEOALE A, SOM. E55 17 HEALER /URIOER IO 107 RENE MSRC$:WFREACUR.BLI/UPDATE=(ENHS: WFRE 


Size: 

Run Time: 
Elapsed Time: 
Lines/CPU Min: 


68 G94 * 0 data bytes 


0:19: 
42 


Rovenee/ Crewe 124 
peeery 2 Used: 66 pages 
Compilation Complete 
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